home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 June
/
1994-06b.d64
/
virus sim
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
179b
|
9 lines
10 rem virus simulator
20 rem by s.bala gangadher rao
30 y=peek(646)
40 b=1024+rnd(1)*999:c=b+54272
50 x=peek(b):ifx=32then40
60 pokeb,32:b=b+40:c=c+40
70 ifb<2024thenpokeb,x:pokec,y:goto60
80 goto40